(*# call(o_a_copy => off) *)
(*%F _fdata *)
(*# call(seg_name => null) *)
(*%E *)
(*# module(implementation=>on) *)
(*# data(seg_name => null) *)
DEFINITION MODULE QCproto;

                     (* This JPI Modula-2 module is part of *)

                      (* QC -- a communications program *)
                             (* by Carl Neiburger *)
                              (* 169 N. 25th St.*)
                          (* San Jose, Calif. 95116 *)

                         (* CompuServe No. 72336,2257 *)

IMPORT NFIO;

PROCEDURE ChoosePath(VAR Name: NFIO.PathStr);
(* Chooses download path if it exists and no other path is specified *)

PROCEDURE ReceiveProtocol;

PROCEDURE SendProtocol;

END QCproto.
